home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5050.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  38 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:c$=CHR$(5):a=1:b=0:c=0
  3. 20 CLS:PRINT"axý+bx+c=0";
  4. 30 s$="a":z=a:GOSUB700:a=z:IFz=0 THEN30
  5. 40 s$="b":z=b:GOSUB700:b=z
  6. 50 s$="c":z=c:GOSUB700:c=z
  7. 60 LOCATE0,1:PRINTc$;".....";
  8. 100 d=b*b-4*a*c
  9. 110 CLS:IFd THEN130
  10. 120 PRINT"a(x-à)ý=0";:PRINT:GOTO200
  11. 130 PRINT"a(x-à)(x-á)=0";:PRINT
  12. 140 ONSGNd+2 GOTO400,,300
  13. 200 x=-b/(2*a):GOSUB510:PRINTc$;"à =";x;
  14. 210 GOSUB550:IFw=13 THEN20 ELSE210
  15. 300 IFb<0 THENz=-b+SQRd ELSEz=-b-SQRd
  16. 305 x=z/2/a:y=2*c/z:GOSUB500
  17. 310 PRINTc$;"à =";x;
  18. 330 GOSUB550:IFw<>13 ANDw<>31 THEN330
  19. 340 PRINTc$;"á =";y;
  20. 360 GOSUB550:IFw=30 THEN310 ELSEIFw=13 THEN20 ELSE360
  21. 400 x=-b/(2*a):y=SQR(-d)/(2*a):GOSUB500:x$=STR$(x)+" ":y$=MID$(STR$(y),2):IFx=0 THENx$=""
  22. 410 PRINTc$;"à =";x$;:IFx THENPRINT"+";
  23. 420 IFy-1 THENPRINT" ";y$;"i"; ELSEPRINT" i";
  24. 430 GOSUB550:IFw<>13 ANDw<>31 THEN430
  25. 440 PRINTc$;"á =";x$;"-";:IFx THENPRINT" ";
  26. 450 IFy-1 THENPRINTy$;"i"; ELSEPRINT"i";
  27. 460 GOSUB550:IFw=30 THEN410 ELSEIFw=13 THEN20 ELSE460
  28. 500 IFy<>0 ANDABSy>=1e-90 THENy=ROUND(y,LOG(ABSy)-7)
  29. 505 IFy<>0 ANDABSy<1e-90 THENy=y*1e10:y=ROUND(y,LOG(ABSy)-7):y=y/1e10
  30. 510 IFx<>0 ANDABSx>=1e-90 THENx=ROUND(x,LOG(ABSx)-7)
  31. 515 IFx<>0 ANDABSx<1e-90 THENx=x*1e10:x=ROUND(x,LOG(ABSx)-7):x=x/1e10
  32. 520 RETURN
  33. 550 LOCATE0,0:LOCATE0,1:w=ASC(INPUT$(1,@)):RETURN
  34. 700 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
  35. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  36. 1010 IFERL=700 THENRESUME700
  37. 1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
  38.